Moje Pasje: IT & Podróże

# wykres pojawi sie na nastepnym slajdzie

library(ggplot2)

# dane - poziom umiejetnosci w roznych technologiach
skills <- data.frame(
  Technologia = c("R", "Python", "SQL", "HTML/CSS", "Git"),
  Poziom = c(50, 80, 70, 50, 80)
)

# wykres slupkowy
ggplot(skills, aes(x = Technologia, y = Poziom)) +
  geom_col(fill = "steelblue") +
  theme_minimal() +
  labs(title = "Moj Stack Technologiczny", 
       x = "Technologia", 
       y = "Poziom (%)")

# dane - rozklad czasu w tygodniu
czas_nauki <- data.frame(
  Aktywnosc = c("Programowanie", "Kursy online", "Projekty wlasne", "Dokumentacja", "Uczelnia"),
  Godziny = c(15, 8, 10, 5, 7)
)

# wykres slupkowy z kolorami wg aktywnosci
ggplot(czas_nauki, aes(x = Aktywnosc, y = Godziny, fill = Aktywnosc)) +
  geom_col() +
  theme_minimal() +
  labs(title = "Tygodniowy rozklad czasu na IT", 
       x = "", 
       y = "Godziny") +
  theme(axis.text.x = element_text(angle = 45, hjust = 1),
        legend.position = "none")

# dane - liczba wizyt w krajach
kraje <- data.frame(
  Kraj = c("Polska", "Niemcy", "Wlochy", "Hiszpania", "Grecja", "Chorwacja", "Austria"),
  Wizyty = c(50, 5, 3, 2, 2, 4, 3)
)

# poziomy wykres slupkowy
ggplot(kraje, aes(x = Kraj, y = Wizyty)) +
  geom_col(fill = "darkgreen") +
  coord_flip() +
  theme_minimal() +
  labs(title = "Liczba wizyt w roznych krajach", 
       x = "", 
       y = "Liczba wizyt")

# dane - liczba wyjazdow w latach
podroze <- data.frame(
  Rok = c(2021, 2022, 2023, 2024, 2025),
  Liczba_wyjazdow = c(3, 5, 7, 8, 6)
)

# wykres liniowy z punktami
ggplot(podroze, aes(x = Rok, y = Liczba_wyjazdow)) +
  geom_line(color = "blue", size = 1) +
  geom_point(color = "darkblue", size = 3) +
  theme_minimal() +
  labs(title = "Moje podroze w latach 2021-2025", 
       x = "Rok", 
       y = "Liczba wyjazdow")